home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / moni / xoper23fixed.lha / xoper.a_diff < prev    next >
Text File  |  1993-03-16  |  5KB  |  186 lines
  1. 143c143
  2. <         CALL    Write,dosbase(a4)
  3. ---
  4. >         RECALL  Write    ; changed CALL->RECALL TJM
  5. 249c249
  6. <         move.l  2(a1,a0.w),oldswitch
  7. ---
  8. > ;        move.l  2(a1,a0.w),oldswitch    ; removed TJM
  9. 251a252
  10. >         move.l  d0,oldswitch        ; replaces above line TJM
  11. 254c255
  12. <         move.l  2(a6,a0.w),OldAddTask
  13. ---
  14. > ;        move.l  2(a6,a0.w),OldAddTask   ; removed again TJM
  15. 257a259
  16. >         move.l  d0,OldAddTask        ; replaces above line TJM
  17. 266c268
  18. <         pea     -127        ;pri
  19. ---
  20. >         pea     -128        ;pri -- was -127; changed TJM
  21. 275,276c277,279
  22. <         move.l  timerbase(a4),a6
  23. <         jsr     -$3c(a6)
  24. ---
  25. > ;        move.l  timerbase(a4),a6    ; removed TJM
  26. > ;        jsr     -$3c(a6)            ; removed TJM
  27. >         CALL    ReadEClock,timerbase(a4)    ; replaces above 2 lines
  28. 445c448
  29. <         bra     input
  30. ---
  31. >         bra.s   input    ; added ".s" TJM
  32. 798c801
  33. <         move.b  8(a3),d0
  34. ---
  35. >         move.b  8(a5),d0 ; TJM - changed a3->a5 [irrelevant change]
  36. 849c852,853
  37. <         move.w  #nofpu,d1          ;keine fpu annehmen
  38. ---
  39. >                       ; below comments xlated German->Eng TJM
  40. >         move.w  #nofpu,d1          ;assume no FPU
  41. 853c857
  42. <         move.w  #nullstate,d1      ;fpu im null state annehmen
  43. ---
  44. >         move.w  #nullstate,d1      ;assume FPU NULL state
  45. 856c860
  46. <         beq.s   pt16          ;kann nur xoper selbst sein
  47. ---
  48. >         beq.s   pt16          ;can only be xoper itself
  49. 858c862
  50. <         moveq   #0,d0          ;0(sp) -> pc wenn keine fpu
  51. ---
  52. >         moveq   #0,d0          ;0(sp) -> pc when no FPU
  53. 861c865
  54. <         beq.s   prt151          ;keine FPU
  55. ---
  56. >         beq.s   prt151          ;no FPU
  57. 864c868
  58. <         beq.s   prt150          ;ja
  59. ---
  60. >         beq.s   prt150          ;yes
  61. 867c871
  62. <         lea     110(a1),a1            ;offset fuer fpu regs
  63. ---
  64. >         lea     110(a1),a1            ;offset for fpu regs
  65. 870c874
  66. <         lea     12(a1),a1               ;3 longs mehr
  67. ---
  68. >         lea     12(a1),a1               ;3 more longs
  69. 882c886
  70. < prt152        addq.l  #weissnicht-busy,d1     ;vielleicht mc 68882 ??
  71. ---
  72. > prt152        addq.l  #dontknow-busy,d1        ;maybe mc 68882 ??    ; changed weissnicht->dontknow TJM
  73. 1464c1468
  74. <         bra     sta1
  75. ---
  76. >         bra.s   sta1            ; added ".s" TJM
  77. 2257c2261
  78. <         bra     cd18
  79. ---
  80. >         bra.s   cd18        ; Added ".s" TJM
  81. 5311c5315
  82. < myswitch    movem.l d0-d1/a0,-(a7)
  83. ---
  84. > myswitch    movem.l d0-d1/a0-a2/a6,-(a7)  ; added a1-a2/a6 TJM
  85. 5324c5328,5333
  86. <         bsr     getV2.0time
  87. ---
  88. > ;        bsr.s   getV2.0time         ; killed TJM
  89. >         move.l  a0,a2            ; added TJM
  90. >         lea     newtime(PC),a0          ; added TJM
  91. >         CALL    ReadEClock,.timerbase   ; added TJM
  92. >         move.l  a2,a0            ; added TJM
  93. >         move.l  newtime+4,d0        ; added TJM
  94. 5337c5346
  95. < swgo2        movem.l (a7)+,d0-d1/a0
  96. ---
  97. > swgo2        movem.l (a7)+,d0-d1/a0-a2/a6    ; added a1/a2/a6 - TJM
  98. 5348a5358
  99. > newtime     ds.l    2
  100. 5350,5358d5359
  101. < getV2.0time movem.l d2/a0,-(a7)
  102. <         move.w  #$4000,$dff09a    ;ReadEClock
  103. <         lea     $bfe001,a0
  104. <         moveq   #0,d0
  105. <         move.l  d0,d1
  106. <         move.l  d1,d2
  107. <         move.b  $700(a0),d0
  108. <         move.b  $600(a0),d1
  109. <         move.b  $700(a0),d2
  110. 5360,5372c5361,5382
  111. <         cmp.b   d0,d2
  112. <         beq.s   1$
  113. <         moveq   #-1,d1
  114. < 1$        lsl.w   #8,d2
  115. <         move.b  d1,d2
  116. <         addq    #1,d2
  117. <         neg.w   d2
  118. <         move.l  .timerbase(PC),a0
  119. <         move.l  $50(a0),d0
  120. <         move.w  d2,d0
  121. <         move.w  #-$4000,$dff09a
  122. <         movem.l (a7)+,d2/a0
  123. <         rts
  124. ---
  125. > ; Probably better to just call ReadEClock itself... - TJM (deleted whole fn)
  126. > ;getV2.0time movem.l d2/a0,-(a7)
  127. > ;         move.w  #$4000,$dff09a    ;ReadEClock
  128. > ;         lea     $bfe001,a0
  129. > ;         moveq   #0,d0
  130. > ;         move.l  d0,d1
  131. > ;         move.l  d1,d2
  132. > ;         move.b  $700(a0),d0
  133. > ;         move.b  $600(a0),d1
  134. > ;         move.b  $700(a0),d2
  135. > ;
  136. > ;         cmp.b   d0,d2
  137. > ;         beq.s   1$
  138. > ;         moveq   #-1,d1
  139. > ;1$         lsl.w   #8,d2
  140. > ;         move.b  d1,d2
  141. > ;         addq    #1,d2
  142. > ;         neg.w   d2
  143. > ;         move.l  d2,d0
  144. > ;         move.w  #-$4000,$dff09a
  145. > ;         movem.l (a7)+,d2/a0
  146. > ;         rts
  147. 5551c5561
  148. < myproctrap  bsr     traphandle
  149. ---
  150. > myproctrap  bsr.s   traphandle        ; added ".s" TJM
  151. 5555c5565
  152. < mytrap        bsr     traphandle
  153. ---
  154. > mytrap        bsr.s   traphandle        ; added ".s" TJM
  155. 5579c5589
  156. < traphandle  movem.l d0-d7/a0-a6,$180
  157. ---
  158. > traphandle  movem.l d0-d7/a0-a6,regsave     ; was ->$180; don't like writing to low RAM TJM
  159. 5595c5605
  160. < 2$        movem.l $180,d0-d7/a0-a6
  161. ---
  162. > 2$        movem.l regsave,d0-d7/a0-a6     ; was <- $180 TJM
  163. 5597a5608,5610
  164. > regsave     ds.l    15        ; add TJM to replace $180 for reg. storage
  165. > tsig        ds.w    1        ; added TJM to save sig # for later freeing
  166. > 
  167. 5606a5620
  168. >         move.b  d0,tsig            ; added TJM to free later
  169. 5634a5649
  170. >         moveq   #0,d5        ; added TJM
  171. 5650a5666,5667
  172. >         move.b  tsig(PC),d0         ; added TJM
  173. >         RECALL  FreeSignal        ; added TJM
  174. 7405c7422
  175. < .stplist    dc.l    lh_tail
  176. ---
  177. > .stplist    dc.l    .lh_tail    ; changed lh_tail->.lh_tail TJM
  178. 7736a7754
  179. >         dc.b    'SignalSem ',0  ; added TJM to make 16 types
  180. 7878,7879c7896,7897
  181. < weissnicht  EQU *-dataarea
  182. < .weissnicht dc.b    '???? ',0
  183. ---
  184. > dontknow    EQU *-dataarea        ; changed name wiessnicht->dontknow TJM
  185. > .dontknow   dc.b    '???? ',0       ; same TJM
  186.